
{******************************************************************************************}
{                                                                                          }
{                                     XML Data Binding                                     }
{                                                                                          }
{         Generated on: 2009-10-26 10:26:29                                                }
{       Generated from: F:\projects\QueryItSuite\QI.BizOnWeb\bin\OtherService\config.xml   }
{                                                                                          }
{******************************************************************************************}

unit XmlConfig;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLWsConfigType = interface;

{ IXMLWsConfigType }

  IXMLWsConfigType = interface(IXMLNode)
    ['{6FA7A8D7-2F3C-4568-99E4-0FBA91061A1C}']
    { Property Accessors }
    function Get_ClientUpdateUrl: WideString;
    function Get_RedirectAnother: WideString;
    function Get_RebootCom_Name: WideString;
    procedure Set_ClientUpdateUrl(Value: WideString);
    procedure Set_RedirectAnother(Value: WideString);
    procedure Set_RebootCom_Name(Value: WideString);
    { Methods & Properties }
    property ClientUpdateUrl: WideString read Get_ClientUpdateUrl write Set_ClientUpdateUrl;
    property RedirectAnother: WideString read Get_RedirectAnother write Set_RedirectAnother;
    property RebootCom_Name: WideString read Get_RebootCom_Name write Set_RebootCom_Name;
  end;

{ Forward Decls }

  TXMLWsConfigType = class;

{ TXMLWsConfigType }

  TXMLWsConfigType = class(TXMLNode, IXMLWsConfigType)
  protected
    { IXMLWsConfigType }
    function Get_ClientUpdateUrl: WideString;
    function Get_RedirectAnother: WideString;
    function Get_RebootCom_Name: WideString;
    procedure Set_ClientUpdateUrl(Value: WideString);
    procedure Set_RedirectAnother(Value: WideString);
    procedure Set_RebootCom_Name(Value: WideString);
  end;

{ Global Functions }

function GetwsConfig(Doc: IXMLDocument): IXMLWsConfigType;
function LoadwsConfig(const FileName: WideString): IXMLWsConfigType;
function NewwsConfig: IXMLWsConfigType;

const
  TargetNamespace = '';

implementation

{ Global Functions }

function GetwsConfig(Doc: IXMLDocument): IXMLWsConfigType;
begin
  Result := Doc.GetDocBinding('wsConfig', TXMLWsConfigType, TargetNamespace) as IXMLWsConfigType;
end;

function LoadwsConfig(const FileName: WideString): IXMLWsConfigType;
begin
  Result := LoadXMLDocument(FileName).GetDocBinding('wsConfig', TXMLWsConfigType, TargetNamespace) as IXMLWsConfigType;
end;

function NewwsConfig: IXMLWsConfigType;
begin
  Result := NewXMLDocument.GetDocBinding('wsConfig', TXMLWsConfigType, TargetNamespace) as IXMLWsConfigType;
end;

{ TXMLWsConfigType }

function TXMLWsConfigType.Get_ClientUpdateUrl: WideString;
begin
  Result := AttributeNodes['clientUpdateUrl'].Text;
end;

procedure TXMLWsConfigType.Set_ClientUpdateUrl(Value: WideString);
begin
  SetAttribute('clientUpdateUrl', Value);
end;

function TXMLWsConfigType.Get_RedirectAnother: WideString;
begin
  Result := AttributeNodes['redirectAnother'].Text;
end;

procedure TXMLWsConfigType.Set_RedirectAnother(Value: WideString);
begin
  SetAttribute('redirectAnother', Value);
end;

function TXMLWsConfigType.Get_RebootCom_Name: WideString;
begin
  Result := ChildNodes['RebootCom_Name'].Text;
end;

procedure TXMLWsConfigType.Set_RebootCom_Name(Value: WideString);
begin
  ChildNodes['RebootCom_Name'].NodeValue := Value;
end;

end.